home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _GUICtrlEditFind.au3 < prev    next >
Text File  |  2006-08-01  |  3KB  |  71 lines
  1. Opt("MustDeclareVars", 1)
  2. #include <GUIConstants.au3>
  3. #include <GuiEdit.au3>
  4.  
  5. ; *******************************************************
  6. ; Example 1 - Using with an AutoIt Created Edit control
  7. ; *******************************************************
  8.  
  9. _UseAutoItControl()
  10.  
  11. Func _UseAutoItControl()
  12.     Local $s_texttest = "this is a test" & @CRLF & _
  13.         "this is only a test" & @CRLF & _
  14.         "this testing should work for you as well as it does for me"
  15.    Local $GuiCtrlEditSearch, $myEdit, $Button1, $Button2, $msg
  16.     
  17.    $GuiCtrlEditSearch = GUICreate('Find And Replace Example with AutoIt ' & FileGetVersion(@AutoItExe), 622, 448, 192, 125)
  18.    $myEdit = GUICtrlCreateEdit($s_texttest, 64, 24, 505, 233, _
  19.         BitOR($ES_AUTOVSCROLL, $WS_VSCROLL, $ES_MULTILINE, $WS_HSCROLL, $ES_NOHIDESEL))
  20.    $Button1 = GUICtrlCreateButton("Find", 176, 288, 121, 33, 0)
  21.    $Button2 = GUICtrlCreateButton("Find And Replace", 368, 288, 121, 33, 0)
  22.    GUISetState(@SW_SHOW)
  23.    While 1
  24.       $msg = GUIGetMsg()
  25.       Select
  26.          Case $msg = $GUI_EVENT_CLOSE
  27.             ExitLoop
  28.          Case $msg = $Button1
  29.             _GUICtrlEditFind ($GuiCtrlEditSearch, $myEdit)
  30.          Case $msg = $Button2
  31.             _GUICtrlEditFind ($GuiCtrlEditSearch, $myEdit, True)
  32.          Case Else
  33.             ;;;;;;;
  34.       EndSelect
  35.    WEnd
  36.     GUIDelete()
  37. EndFunc   ;==>_UseAutoItControl
  38.  
  39. ; *******************************************************
  40. ; Example 2 - Using with an external Edit control
  41. ; *******************************************************
  42.  
  43. _UseExternalControl()
  44.  
  45. Func _UseExternalControl()
  46.     Local $s_texttest = 'Find And Replace Example with AutoIt ' & FileGetVersion(@AutoItExe) & @LF & _
  47.        "this is a test" & @LF & _
  48.         "this is only a test" & @LF & _
  49.         "this testing should work for you as well as it does for me"
  50.     Local $whandle, $handle
  51.     Local $Title = "Untitled - Notepad"
  52.     
  53.     Run("notepad", "", @SW_MAXIMIZE)
  54.     ;Wait for the window "Untitled" to exist
  55.     WinWait($Title)
  56.     
  57.     ; Get the handle of a notepad window
  58.     $whandle = WinGetHandle($Title)
  59.     If @error Then
  60.         MsgBox(4096, "Error", "Could not find the correct window")
  61.     Else
  62.         $handle = ControlGetHandle($whandle, "", "Edit1")
  63.         If @error Then
  64.             MsgBox(4096, "Error", "Could not find the correct control")
  65.         Else
  66.             ; Send some text directly to this window's edit control
  67.             ControlSend($whandle, "", "Edit1", $s_texttest)
  68.             _GUICtrlEditFind ($whandle, $handle, True, $Title)
  69.         EndIf
  70.     EndIf
  71. EndFunc   ;==>_UseExternalControl